NETGAMES :: NG-Recensioni DISCHI

<% Set connection = Server.CreateObject("ADODB.Connection") Set disc = Server.CreateObject("ADODB.RecordSet") sel = request("doc") ' connection.open " DSN=db1" connection.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("news97.mdb") vero = cbool(1) falso = cbool(0) sql ="select * from dischi WHERE ID = " & sel disc.open sql,connection,3 %> NETGAMES :: NG-Recensioni DISCHI

<% Set bun = Server.CreateObject("ADODB.RecordSet") ' pos 1 ... 4 sel ="select * from banner where pos = 1" bun.open sel,connection,3 if (bun("isimmagine") = vero) then %> ">

" width="<%=bun("larghezza")%>" height="<%=bun("altezza")%>" border="0"> <% else %>

<% end if bun.close %>

<% Set bun = Server.CreateObject("ADODB.RecordSet") ' pos 1 ... 4 sel ="select * from banner where pos = 2" bun.open sel,connection,3 if (bun("isimmagine") = vero) then %> ">

" width="<%=bun("larghezza")%>" height="<%=bun("altezza")%>" border="0"> <% else %>

<% end if bun.close %>

" border="0" width="140" height="140">

<%= disc("titolodisco")%>

<%= disc("artista")%>

Casa discografica
<%= disc("casadisco")%>

<%= disc("recdisco")%>

TRACK LIST

<% if (disc("testolink1") <> "*") then %> <%= disc("testolink1")%>
"><%= disc("link1")%>
<%end if%> <% if (disc("testolink2") <> "*") then %> <%= disc("testolink2")%>
"> <%= disc("link2")%>
<%end if%> <% if (disc("testolink3") <> "*") then %> <%= disc("testolink3")%>
"> <%= disc("link3")%>
<%end if%> <% if (disc("testolink4") <> "*") then %> <%= disc("testolink4")%>
"> <%= disc("link4")%>
<%end if%>

<%= disc("tracklist")%>

DISCOGRAFIA

<%= disc("discografia")%>

GIUDIZIO

<%= disc("voto")%>

AUTORE
DATA

<%= disc("autorerec")%>
<%= disc("datarec")%>

<% connection.close %>